Dim dm_acc = "pangpangabccf5dcdcd4a19721bfaa6881f0aef592c"
Dim dm_pwd = "nbJZ"

Dim 大漠路径
大漠路径 = "D:\dm\"

Plugin.jd.CreateFolder 大漠路径
PutAttachment 大漠路径, "dm.dll"
PutAttachment 大漠路径, "DmReg.dll"
PutAttachment 大漠路径, "jd.dll"
Plugin.jd.DmRegEx "DmReg", "SetDllPathA", 大漠路径 & "\dm.dll", 0

' 版本判断
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
If ver <> 7.2211 Then 
    TracePrint ver
    messagebox "安装失败"
    ExitScript
End If

' 注册是否成功
res = dm.Reg(dm_acc, dm_pwd)
If res <> 1 Then 
    TracePrint "注册码无效,返回:" & res
Else 
    TracePrint "成功"
End If

dm.setpath 大漠路径
res1 = dm.SetDict(0, "zilib.txt")